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1.0 


INTRODUCTION 


Under continuing NASA sponsorship ( WAS 9-124 11 ) , Hamilton Standard 
has developed a Shuttle ARS (atmosphere revitalization subsystem)/ 
ATCS (active thermal control subsystem) performance routine. This 
computer program is adapted from the Shuttle EC/LSS Design Computer 
Program developed under the basic contract. The new program has 
been upgraded in three noteworthy areas: 

A. The functional ARS/ATCS schematic has been revised to 
accurately synthesize the Shuttle prime contractor's August 30, 
1973 baseline system definition. 

B. The program logic has been improved to provide a more accurate 
prediction of the integrated ARS/ATCS system performance. 
Additionally the logic has been expanded to model all components 
and thermal loads in the ARS/ATCS system. 

C. The program is designed to be used on the NASA JSC crew systems 
division's "programmable calculator" system. As written, the 
new computer routine has an average running time of five minutes . 

The use of "desk top" type calculation equipment, and the rapid 
response of the program provides the NASA with an analytical tool 
for trade studies to refine the system definition, and for test 
support of the RSECS or integrated Shuttle ARS/ATCS test programs. 

The program can be used for: 

A. Pre-test predictions, 

B. Real-time test support, and 

C. Post-test analysis. 

To support the RSECS test program, the user needs only to update 
the input data and make minor program revisions to accurately 
synthesize the RSECS hardware and test configuration. 

The objective of this document is to define this computer program 
and provide the user with sufficient information for running and 
modifying the program as may be desired. 

An outline of this document is presented in Table 1.1. 


/ 


1-1 



TABLE 1.1 


USER'S MANUAL OUTLINE 


1.0 INTRODUCTION 

2.0 PROGRAM CHANGES 

2.1 ATCS Freon Coolant Loop 2-1 

2.2 ARS Water Coolant Loop 2-3 

2.3 ARS Cabin Gas Loop 2-3 

2.4 ARS Avionics Bay Package 2-3 

3.0 PROGRAM DESCRIPTION 

3.1 Main Program Tape 3-1 

3.2 Data Tape 3_1 

4.0 OPERATING PROCEDURES 

4.1 Program Operation 

4.2 Program Modifications 4-8 

4.3 Procedure to Verify Library Data Stored on Tape 4-22 

4.4 Procedure to Revise Library Data Stored on Tape 4-23 

APPENDIX I - PROGRAM LOGIC 

1. Internal Program Data i 

2. Calculation Procedures 11 

APPENDIX II - PROGRAM CODING SHEETS 
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2.0 


PROGRAM CHARGES 


The ARS/ATCS performance routine is adapted from the Shuttle EC/l£S 
Design Computer Program developed under the auspices of the basic 
contract. The performance routine, however, is designed to be used 
in conjunction with the crew systems division’s Wang 700-series 
"programmable calculator" system. By utilizing this "desk top" 
type equipment, the user is provided with an average running time 
of five minutes per case, in place of a minimum four hour turn- 
around associated with the NASA-JSC computer facilities. 

This new computer routine performs a steady-state, thermodynamic 
anslysis of the combined ARS/ATCS system. Figures 2.1 through 2.4 
are simplified schematics of the liquid and gas coolant loops 
incorporated in the program. These schematics are representative 
of Rockwell International’s baseline configuration as defined on 
August 30, 1973* in addition to the changes required to model the 
baseline system, selected improvements were made in the calculation 
procedures. These changes provide a more accurate prediction of 
the actual ARS/ATCS performance. The modifications made to the 
basic program are summarized below: 

2.1 ATCS Freon Coolant Loop, Figure 2.1 

A. A flow rate convergence loop was added to the program. This 
loop calculates the mass flow rate of the coolant loop based 
on the Freon density at the pump inlet and the pump volumetric 
flow rate. 

B. Temperature changes around the coolant loop are based on the 
Freon enthalpy change. This replaces the previous method of 
assuming a constant specific heat of Freon. 

C. The oxygen restrictor/heater was added to the coolant loop. 

This model analyzes the Freon side only. 

D. A payload heat exchanger model was incorporated downstream 
from the Freon to water inter changer • The analysis predicts 
Freon and payload coolant temperatures at the heat exchanger. 

E. The fuel cell heat exchanger analysis was modified to reflect 
the baseline heat exchanger design. This configuration has 
one Freon circuit interfacing with all three fuel cell circuits 

F. A hydraulics heat exchanger model was added to the coolant loop 
This heat exchanger transfers heat from the Freon circuit to 
the hydraulic circuits. 

G. A heat node was added to simulate the coolant loop environment 
heat load. This node was placed upstream of the radiator. 
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2.1 


(Continued) 


H. The radiator analysis was changed to predict the outlet 
temperature by interpolating a performance map. The performance 
map is input data and can reflect any radiator configuration 

or space environment. 

I. The GSE heat exchanger model was altered. The GSE coolant 
inlet temperature and flow rate are now input data. 

J. The sublimator, coldplates and avionics bay were deleted 
from the Freon coolant loop. 

2.2 ARS Water Coolant Loop, Figure 2.2 

A. A sublimator model was added to the coolant loop, downstream 
from the Freon to water inter changer . 

B. The potable water chiller model was upgraded to predict both 
the ARS water coolant and the potable water temperatures at 
the heat exchanger. 

C. A heat node was added to represent the coldwall. This heat 
node was placed downstream from the cabin IMEJ coldplates. 

D. The avionics bay analysis was changed to model three parallel 
avionics bays. The water coolant flow is equally proportioned 
to the three bays. 

E. A heat node was added downstream from the avionics bays to 
model the cabin windows cooling circuit. 

2.3 ARS Cabin Gas Loop, Figure 2.3 

A. A gas flow rate convergence loop has been incorporated in the 
program. The convergence loop calculates the air mass flow 
rate based on the fan inlet temperature and the fan volumetric 
flow rate . 

B. A heat node was added upstream from the cabin fan to model the 
cabin avionics heat load. 

C. The lithium hydroxide model was relocated to a series arrange- 
ment with the cabin heat exchanger, rather than the original, 
parallel location. 

2.4 ARS Avionics Bay Package, Figure 2.4 

A. A heat node was added to the ARS water coolant loop upstream from 
the water to air heat exchanger. This heat node models the avionics 
bay coldplates . 
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2.4 


(Continued) 


B. A convergence loop was incorporated to calculate the avionics 
hay air mass flow rate. The flow calculation is based on the 
fan inlet temperature and the fan volumetric flow rate. 
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3.0 PROGRAM DESCRIPTION 


3-0 


PROGRAM DESCRIPTION 


The ARS/ATCS performance routine consists of: a system initiation 

program, the main program tape cassette, and a data tape cassette. 
The system initiation program rewinds and addresses the program 
and data tapes at the start of a run. It also does the ARS/ATCS 
component and/or heat node bookkeeping, calling-up the program 
analysis groups in the desired sequence. 

3.1 Main Program Tape 

The main program tape is divided into 55 tape blocks j each block 
consists of 256 program steps. The program logic required for the 
performance analysis is functionally isolated on separate program 
groups. Each group consists of an integer number of tape blocks. 

The only interface between the program groups , therefore , is the 
common outlet/inlet temperature of adjacent components. This 
method of programming simplifies the effort required to revise the 
ARS/ATCS thermal schematic in the program. The desired analysis 
sequence is programmed so that the tape blocks are called-up 
in ascending order. Table 3.1 is a listing of the 55 tape blocks 
and a summary of their functions. 

3.2 Data Tape 

The ARS/ATCS performance routine data tape is designed to be both 
a library and working tape. Storage blocks designated as ’'read 1 ' 
are used for the continuous storage of basic ARS/ATCS system data 
(radiator map, flow rates, heat exchanger UA's, etc.). Those 
storage blocks designated "write” provide data storage for input 
information that is unique to the particular case being run (heat 
loads, heat sink selection, changes to flow rates or heat exchanges, 
etc.). 

Table 3.2 provides the user with an itemized list of all the data 
tape storage blocks being used and their storage function. The 
library data stored on the tape is representative of Rockwell 
International's August 30, 1973 system definition. 


3-1 



TABLE 3.1 


PROGRAM TAPE LISTING 


Program 

Group 

Number 

Tape Block 
Numbers 
Used 

Program Function 
or Component 
Analyzed. 

1 

0-4 

Load/ write input data 

2 

5 

Sub lima tor 

3 

6 , 7 - 9 

GSE heat exchanger, ATCS 
Freon coolant loop mass 
flow rate calculation 

4 

6 , 10 - 13 

Radiator, ATCS coolant 
loop mass flow rate 
calculation 

5 

14 - 15 

O 2 restrictor/heater, 
using the GSE heat exchanger 
or radiator heat sink 

6 

16 - 18 

F 2 I/H 2 O inter changer, using 
the GSE heat exchanger 
or radiator heat sink 

7 

19 - 20 

Potable H 2 O chiller 

8 

21 - 27 

ARS cabin gas loop 

9 

28 - 30 

Print-out of the ARS cabin 
gas loop analysis 

10 

31 

H 2 O coolant loop pump 

11 

32 

Cabin IMU coldplates 

12 

33 

Coldwall 

13 

34 - 36 

Avionics bay and cabin 
window cooling 

i4 

37 - 4o 

F 21 /H 2 O interchanger and 
ATCS Freon coolant loop 
mass flow rate calculation, 
using the sublimator heat 
sink 

15 

4l - 43 

Payload heat exchanger 
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table 3.1 

(Continued) 


Program 

Tape Block 

Program Function 

Group 

Numbers 

or Component 

Number 

Used 

Analyzed 

16 

44 - 45 

F21 coolant loop pump 

17 

46 - 48 

Fuel cell heat exchanger 

18 

49 - 51 

Hydraulics heat exchanger 

19 

52 - 53 

F21 coolant loop environment 
load 

20 

54 - 55 

0>2 restrictor/heater , using 
the sublimator heat sink 
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TABLE 3*2 

DATA TAPE LISTING 

Program 

Data Tape 
Block Number 

Symbol 

Read 

Write 

Ci/2200 

1 


02/2200 

2 


C3/22OO 

3 


C4/22OO 

4 


Cl/2400 

5 


C 2 /2400 

6 


C3/240O 

7 


C4/2400 

8 


C1/26OO 

9 


C2/26OO 

10 


C3/260O 

11 


C4/2600 

12 


Cl/2800 

13 


C2/28OO 

14 


C3/28OO 

15 


C4/28OO 

16 


Cl/3000 

17 


C 2 /3000 

18 


C3/3000 

19 


C4/3OOO 

20 


Cl/3200 

21 


C2/3200 

22 


C3/32OO 

23 


C4/3200 

24 


Cl/3400 

25 


c 2 /34oo 

26 


C3/3400 

27 


C4/3400 

28 


Cl/3600 

29 


C2/36OO 

30 


C3/3600 

31 


C4/3600 

32 


Cl/3800 

33 


C2/3800 

34 


C3/38OO 

35 


C4/38OO 

36 


T CAB 

37 

38 

T RAD 

39 

4o 

T GSE 

4i 

42 

T GSEHX 

43 

44 

Q. MET-S 

45 

46 

Q, MET-L 

47 

48 

w co 2 

49 

50 

Q CAB-S 

51 

52 


Library 

Data 

Value 

Refer 

to 

Note # 

+.755145586603 (10” 7 ) 

1 3 2 

-.358538490797 (10-+) 

1> 2 

+.148430804566 

1, 2 

+15.6603741282 

1, 2 

+.158727535888 (10“8) 

1, 2 

-.708924848657 (10-4) 

1, 2 

+.174006815809 

1, 2 

+17.0864342023 

1 5 2 

-.118499436421 (10-5) 

1, 2 

+.477994683704 (10-3) 

1, 2 

+.126070497831 

1, 2 

+20.8707397789 

1, 2 

-.19766620901 (10-5) 

1, 2 

+.80626947099 (10-3) 

1, 2 

+.103858233508 

1, 2 

+23.5068463168 

1, 2 

-.775095331913 (10-6) 

1, 2 

+.321439903723 (10-3) 

1, 2 

+.181889268439 

1, 2 

+22.265232225 

1, 2 

0 

1, 2 

0 

1, 2 

+ .24 

1, 2 

+21.5 

1, 2 

-.208021726773 (10-6) 

1, 2 

+.544525682339 (10”M 

1. 2 

+.25438554269 

1, 2 

+21.9449515104 

1, 2 

-.387691599036 (10-6) 

1, 2 

+.69001872501 (10-^) 

1, 2 

+.27706481558 

1, 2 

+21.7352466989 

I, 2 

-.139884144047 (10-5) 

1. 2 

+.389367546703 (10-3) 

7 

1, 2 

+.265396744869 

1, 2 

+22.4619961154 

1, 2 

65° F 

3 

4o°f 

O 

2 

35° F 

2 

20° F 

0 

3299 btu/hr 

Cm, 

4 

1518 btu/hr 

4 

22.98 lbs/day 

4 


4 

5 
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TABLE 3.2 


(Continued) 


Data Tape 


Program 

Block 

Number 

Symbol 

Read 

Write 

Q, CAB-L 

53 

54 

Q, ELEC 

55 

56 

Q, FAN 

57 

58 

Q H2O P 

59 

60 

Q CP-IMU 

61 

62 

Q, CWALL 

63 

64 

Q CP-1 

65 

66 

Q, CP-2 

67 

68 

Q, CP-3 

69 

70 

Q, AB-1 

71 

72 

Q, AB-2 

73 

74 

Q, AB-3 

75 

76 

Q, ABFAN 

77 

78 

Q, CHILL 

79 

80 

Q, PLDHX 

81 

82 

Q F21P 

83 

84 

Q FCELL 

85 

86 

Q, HYDHX 

87 

88 

Q 0 2 HTR 

89 

90 

W H20 

91 

92 

V F21P 

93 

94 

V FAN 

95 

96 

V LIOH 

97 

98 

V ABFAN 

99 

100 

W CHILL 

101 

102 

WCP PLD 

103 

io4 

WCP FCL 

105 

106 

WCP HYD 

107 

108 

WCP GSE 

109 

110 

UA CABHX 

111 

112 

UA A BI-DC 

113 

114 

UA SUBLM 

115 

116 

UA CHILL 

117 

118 

UA INTHX 

119 . 

120 

UA PLDHX 

121 

122 

UA FCLHX 

123 

124 

UA HYDHX 

125 

126 

UA GSEHX 

127 

128 

TOL UA 

129 

130 

# FCELL 

131 

132 

KY SINK 

133 

134 

Q WINDOW 

135 

136 

Q, envirn 

137 

138 

Q H2O L 


139 

Q F21 L 


140 

Q TOT 


l4l 


Library Refer 

Data to 

Value Note $ 


0 5 

0 5 

1196 BTU/KR 2 

315 BTU/HR 2 

0 5 

0 5 

0 5 

0 5 

0 5 

0 5 

0 5 

0 5 

150 BTU/HR 2 

0 5 

0 5 

1376 BTU/HR 2 

0 5 

0 5 

0 5 

700 LBS/HR 2 

32.7 FT3/HR 2 

317 FT3/MIN 2 

66 FT3/MIN 2 

125 FT3/MIN 2 

0 

700 BTU/HR- 0 F 2 

1990 BTU/HR-°F 2 

375 BTU/HR-°F 2 

2430 BTU/HR-°F 2 

975 BTU/HR-° F 2 

415 BTU/HR-° F 2 

1674 BTU/HR-°F 2 

0 

' 5862 BTU/HR-°F 2 

1850 BTU/HR-°F 2 

1645 BTU/HR-°F 2 

200 BTU/HR- °F 2 

2107 BTU/HR-°F 2 

.01 

2 6 

1 6 

0 5 

0 5 

7 

7 

7 
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TABLE 3-2 (Continued) 


NOTES : 

1. Radiator performance map data 

2. Representative of Rockwell International’s August 30, 1973 system defin- 
ition 

3. Minimum allowable cabin temperature under normal operating conditions 

4. Value based on a 10 man crew; 4 men at maximum metabolic rate, 6 men 
at nom. metabolic rate, 65°F cabin 

5. Subject to change with each mission phase 

6. Most common mode of operation 

7. Internally recalculated for each case 
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4.0 

4.1 


OPERATING PROCEDURES 


Program Operation 

A. Turn-on the necessary Wang 700-Series calculation equipment 

1. 720-C Programmable calculator 

2. 702 Output writer 

3. 708-1/-2 Extended memory controller /module 

4. 709 Dual tape cassette 

B. Preliminary set-up of the 720-C programmable calculator: 

1. Set calculator in the run mode. 

2. Install system initiation program tape. 

3. Rewind tape, depress tape ready switch. 

C. Preliminary set-up of the 702 output writer: 

1. Set left margin at 21. 

2. Switch output writer to auto . 

D. Preliminary set-up of the 708-1/-2 extended memory and the 
709 dual tape cassette: 

1. Install the program and data tapes into thedual tape 
cassette. 

2. Set slide- switch settings. 


- Program Tape 

- Data Tape 

- Extended Memory 

E. Load system initiation program: 

1. Key: Prime 

Load Prog 

2. Key: Verify Prog 

X-register will read 312* 

F. Start system operation: 

1. Key: Prime 

Search 
00 

Program and data tapes will be rewound. 


8 4 2 1 

MM 

MM 

MM 
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4.0 


(Continued) 


G. Key: Go 

Load/write input program group will be transf erred to the 
calculator. Radiator data will be transferred to the extended 
memory. Title will be printed. 

H. Write headings: 

1. Switch output 

2. Manually type 
being run. 

3 . Switch output 

4. Key: GO 

5. Switch output 

6 . Manually type 

7. Switch output 

8. Key: GO 

I. Load input data: 

X-register will display the library data stored on the tape for 
the requested input. Table 4.1 provides the user with a listing 
of the input data symbols and their functional definition. 

- If the data value displayed in the X-register is acceptable 
for the case being run, 

Key: GO 

- If this value is not acceptable for the case being run 

Key: NEW VALUE 

GO 

J. Repeat Step I until all data is loaded and the case runs . 

K. Second case to be run: 

1. Switch output writer to MAUL . 

2. Manually index a new sheet of paper. 

3. Switch output writer to AUTO. 

4. Revert to Step G above. 

For user reference, three sample cases are enclosed. These 
cases use the GSE heat exchanger, sublimator, and radiator heat 
sinks, respectiveiy. The program output is fully documented 
in Table 4.2, Output De fin i t io n . 


writer to MANL . 

any distinguishing notation for the case 

writer to AUTO . 

writer to MANL . 
crew size, 
writer to AUTO. 
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TABLE 4.1 


INPUT DATA DEFINITION 


Program 

Symbol 

Units 

Description 

T CAB 

°F 

Cabin heat exchanger control setting; 
desired cabin temperature 

T RAD 

°F 

Radiator outlet temperature control 
setting 

T GSE 

°F 

GSE heat exchanger outlet temperature 
control setting 

T GSEHX 

°F 

Temperature of the GSE coolant entering 
the heat exchanger 

Q MET-S 

btu/hr 

Cabin metabolic sensible heat load, 
corresponds to T CAB 

Q, MET-L 

btu/hr 

Cabin metabolic latent heat load, 
corresponds to T CAB 

Q W C0 2 

lbs/day 

Metabolic carbon dioxide generation rate 

Q CAB-S 

btu/hr 

Total sensible heat load in the cabin 
that remains constant as T CAB varies 

Q. CAB-L 

btu/hr 

Total latent heat load in the cabin 
that remains constant as T CAB varies 

Q ELEC 

btu/hr 

Heat load of the cabin avionics; 
upstream of the cabin heat exchanger 

Q FAN 

btu/hr 

Power requirement of the cabin fan 

Q H 2 0P 

btu/hr 

Power requirement of the ARS water 
coolant loop pump 

Q CP-IMU 

btu/hr 

Heat load from the cabin IMJ coldplates 

Q CWALL 

btu/hr 

Coldwall heat load 

Q CP-1 

-2 

-3 

btu/hr 

Heat load from the coldplate 
network in avionics bays 

1, 2 or 3 

Q CAB-1 

-2 

•5 

btu/hr 

Air-cooled avionics heat load in 
avionics bays 1 , 2 or 3 

Q, ABFAN 

btu/hr 

Power requirement of one avionics bay 
fan 

Q CHILL 

btu/hr 

Potable water chiller heat load 

Q, PLDHX 

btu/hr 

Payload heat exchanger heat load 

Q, F21P • 

• btu/hr 

Power requirement of the Freon coolant 
loop pump 

Q FCELL 

btu/hr 

Fuel cell heat exchanger heat load 

Q, HYDHX 

btu/hr 

Heat load at the hydraulics heat 
exchanger; heat is transferred from the 
Freon circuit to the hydraulics circuit 

Q 02HTR 

btu/hr 

Heat load transferred to the 02 lines by 
the Freon circuit 

w h 2 o 

LBS /hr 

ARS water coolant loop flow rate 
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TABLE 4.1 (Continued) 


Program 

Symbol 

Units 

V F21P 

V FAN 

V L10H 

ft3/hr 

CFM 

CFM 

V ABFAN 
W CHILL 
WCP PLD 
WCP FCL 
WCP HYD 

CFM 

LBS/HR 

btu/hr-° f 
btu/hr-°f 
btu/hr-°f 

WCP GSE 

btu/hr-° f 

UA CABHX 

btu/hr-°f 

UA ABHX 

btu/hr-°f 

UA SUBLM 

btu/hr-°f 

UA CHILL 

btu/hr-°f 

UA INTHX 

btu/hr-°f 

UA PLDHX 

btu/hr-°f 

UA FCLHX 

btu/hr-°f 

UA HYDHX 

btu/hr-°f 

UA GSEHX 

btu/hr-° f 

TOL UA 

- 

# FCELL 

- 

KY SINK 

- 

Q, WINDOW 

btu/kr 

Q ENVIRN 

btu/hr 


Description 

ATCS Freon coolant loop flow rate 

ARS cabin fan flow rate 

ARS cabin fan air flow routed to the 

lithium hydroxide canisters 

Flow rate of one avionics bay fan 

Potable water flow rate to the chiller 

Payload coolant flow rate 

Flow rate of one fuel cell coolant loop 

Hydraulics fluid flow rate to the heat 

exchanger 

Ground support coolant flow rate to the 
heat exchanger 

Overall heat transfer coefficient of 
the cabin heat exchanger 
Overall heat transfer coefficient of 
one avionics bay heat exchanger 
Overall heat transfer coefficient of 
the sublimator 

Overall heat transfer coefficient of 
the potable water chiller 
Overall heat transfer coefficient of 
the ATCS Freon to water inter changer 
Overall heat transfer coefficient of 
the payload heat exchanger 
Overall heat transfer coefficient of 
the fuel cell heat exchanger 
Overall heat transfer coefficient of 
the hydraulics heat exchanger 
Overall heat transfer coefficient of 
the ground support heat exchanger 
Convergence tolerance for the ARS 
cabin gas loop analysis 
Number of fuel cells operating: 

1, 2 or 3 

Heat sink selection: 1 - radiator 

2 - GSE heat 

exchanger 

3 - sublimator 

Heat transferred to the ARS coolant 
loop at the cabin windows 
ATCS Freon coolant loop environment 
heat load 
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4.2 


Program Modifications 


The program is designed to minimize the user effort required to 
effect any desired modifications. Three basic steps comprise the 
modification procedure: 


A. Singularly transfer the program groups from the program tape 
to the 720-C calculator. 

B. Make any desired changes. 

C. Record the modified groups onto a new program tape. 

An example is presented to demonstrate the ease of altering the 
program: The ATCS Freon coolant loop is modified with the addition 

of a second payload heat exchanger, parallel to the Freon to water 
interchanger . It is assumed that this heat exchanger is "valved- 
off u during periods of sublimator operation. To incorporate this 
change to the program, five program groups are affected: a) Load/ 

write input data, b) GSE heat exchanger, c) Radiator, d) F2l/E-,0 
interchanger , and e) Payload heat exchanger. 

Bie load/write input data group is modified to accept additional 
input data for the new heat exchanger; a) heat load, b) payload 
coolant flow rate, c) heat exchanger capacity, and d) the percent 
of ATCS Freon coolant flow routed to it. With the increased data 
requirement, the storage locations of -Q H2O loop, Q, F21 loop, 
and Q total are changed. Format changes to the data print-out 
are also required. The original payload heat exchanger shall be 
labelled #1 and the new payload heat exchanger shall be #2. Table 
4.3 enumerates the program changes necessary to effect these 
modifications. 

The GSE heat exchanger and radiator program groups require identical 
changes. The new storage location of Q total and the second payload 
heat exchanger heat load require minor changes in the data call-up 
and the Freon flow rate calculations. Tables 4.4 and 4.5 describe 
the required changes to the GSE heat exchanger and radiator program 
groups, respectively. 

The F2l/H 2 0 interchanger program group is completely rewritten to 
accommodate the second payload heat exchanger. The original program 
group has an adequate number of tape blocks to accomplish the 
revision if the calculations are generalized and made a subroutine 
to be addressed for the analysis of both heat exchangers. Table 
4.6 is a program listing of the revised F2l/H 2 0 interchanger program 


4-8 



(Continued) 


*+.2 


The only revision necessary to the payload heat exchanger group 
is output format. The required modifications are incorporated so 
that the print-out will read "#1 payload heat exchanger." Table 
4.7 describes this revision. 

If a modified program group requires additional tape blocks, a 
new program group is added, or a program group is deleted, the 
succeeding groups will occupy different tape blocks than their 
original locations. At the end of a program group* s formating, there 
is a six- step sequence directing the program control logic to call- 
up the next desired tape block number. When the modified program 
groups are recorded onto the new program tape, the user must insure 
that the program groups are recorded at their new tape block 
locations and that the block number call-up sequence is revised 
accordingly. 

When revising the program, the user should also note that storage 
registers #01, 02, and 03 are reserved for the carry-over ARS 
water and ATCS Freon coolant loop temperatures and the calculated 
ATCS Freon coolant flow rate, respectively. 
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4.3 


Procedure to Verify Library Data Stored on Tape 

A. Load "read data" program into the 720-C calculator; 
Verification number 205 

B. Load data tape into the 709 dual tape cassette; 

Slide-Switch Setting -8421 

t * * ♦ 

C. Key: PRIME 

SEARCH 

00 

Data tape will be rewound 

D. Key: DATA TAPE BLOCK HUMBER 

GO 

X-register will display data stored in inputed data tape block 
number . 

E. Repeat Step D as required, data tape block numbers should be in 
ascending order. 
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4.1* 


Procedure to Revise Library Data Stored on Tape 


A. Load "write data” program into the 720 -C calculator; 
Verification number 232 

B. Load data tape into the 709 dual tape cassette; 

Slide -Switch Setting 8 4 2 1 

tit* 

C. Key: PRIME 

SEARCH 

00 

Data tape will be rewound. 

D. Key: DATA TAPE BLOCK HUMBER 

GO 

RE W DATA 
GO 

E. Repeat Step D as required, data tape block numbers should be 
in ascending order. 
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TABLE 4.2 OUTPUT DEFINITION 


RADIATOR: 


Program 

Symbol Description 


0 TOT 
T F21-IN 

T F21-OUT 

WCp F21 

W F21 


btu/hr 

°F 
0 F 

BTU/HR-°F 

lbs/hr 


Heat load rejected by the radiator 
ATCS Freon coolant inlet loop tempera- 
ture 

ATCS Freon coolant loop outlet tempera- 
ture 

ATCS Freon coolant mass X specific 
heat flow rate through the radiator 
ATCS Freon collant flow rate 


GSE HEAT EXCHANGER: 


Q TOT 

T F21-IN 

T F21-0UT 

WCP F21 

W F21 
T GSE -OUT 


btu/hr 

°F 

°F 

BTU/HR- 0 F 

LBS/HR 

°F 


Heat load rejected by the GSE heat 
exchanger 

ATCS Freon coolant loop inlet temper- 
ature 

ATCS Freon coolant loop outlet temper- 
ature 

ATCS Freon coolant mass X specific heat 
flow through the GSE heat exchanger 
ATCS Freon coolant flow rate 
GSE coolant temperature exiting the 
heat exchanger 


SUBLIMATQR : 

Q TOT btu/hr 

T H 2 0-IN °F 

T H 2 . -OUT °F 


Heat load rejected by the sublimator 
ARS water coolant loop inlet tempera- 
ture 

ARS water coolant loop outlet temper- 
ature 


02 RESTRICTOR/HEATER : 

T F21-IN °f 

T F21-0UT ° f 

WCp F21 BTU/HR- 0 F 


ATCS Freon coolant loop inlet temper- 
ature 

ATCS Freon coolant loop outlet temper- 
ature 

ATCS Freon coolant mass X specific 
heat flow rate through the 0 2 restrictor 
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TABLE 4.2 (Continued) 


F21/H2Q INTERCHANGER : 


Program 

Symbol 

Units 

Description 

Q H 2 0 L 

BTU/HR 

ARS heat load transferred to the ATCS 
coolant loop across the interchanger 

Q F21 L 

btu/hr 

ATCS heat load transferred to the ARS 
coolant loop across the interchanger 

T F21-IN 

°F 

ATCS Freon coolant loop inlet temper- 
ature 

T H 2 0-IN 

°F 

ARS Freon coolant loop inlet temper- 
ature 

T F21-0UT 

°F 

ATCS Freon coolant loop outlet temper- 
ature 

T f^O-OUT 

°F 

ARS water coolant loop outlet temper- 
ature 

WCp F21 

btu/hr-°f 

ATCS Freon coolant mass X specific 
heat flow rate through the inter- 
changer 

W F21 

lbs/hr 

ATCS Freon coolant flow rate 

POTABLE HpO 

CHILLER: 


T H 2 0-IN 

°F 

ARS water coolant loop inlet temper- 
ature 

T HpO-OUT 

°F 

ARS water coolant loop outlet temper- 
ature 

T POT-IN 

°F 

Potable water temperature entering the 
chiller 

T POT-OUT 

°F 

Potable water temperature exiting the 
chiller 

ARS CABIN GAS LOOP: 


T CAB 

°F 

Cabin dry bulb temperature 

T DEWPT 

°F 

Cabin dewpoint temperature 

PP co 2 

mmHg 

Cabin carbon dioxide partial pressure 

T AIR-IN 

°F 

Air temperature entering the cabin 
heat exchanger 

T AIR-OUT 

°F 

Air temperature exiting the cabin 
heat exchanger 

T HpO-IN 

°F 

ARS water coolant loop inlet temper- 

T t^O-OUT 

°F 

ARS water coolant loop outlet temper- 
ature 
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TABLE 4.2 (Continued) 


ARS CABIN GAS 

LOOP: 

Program 

Symbol 

Units 

Q MET-S 
Q MET-L 
Q L10H-S 

btu/hr 

btu/hr 

btu/hr 

Q, L10H-L 

btu/hr 

Q TOT-S 

btu/hr 

Q TOT-L 

btu/hr 

Q TOT 
WCp AIR 

btu/hr 

BTU/HR F 

V CABHX 

ft 3 /min 

V BYPASS 

FT3/KIN 

UA KEQD 

btu/hr-°f 

LOOP CNT 



H?0 COOLANT LOOP PUMP: 

T HgO-IN 

°f 

T. H2O-OUT 

°F 

IMJ COLDPLATES: 

T H 2 0-IN 

°F 

T H 2 0-0UT 

°F 

COLDWALL: 

T H 2 0-IN 

°F 

T H 2 O-0UT 

°F 


Description 

Cabin sensible metabolic heat load 
Cabin latent metabolic heat load 
Sensible heat generated by the CO o/ 

L10H reaction d 

Latent heat generated by the CO?/ 

L10H reaction 

Total cabin heat exchanger sensible 
heat load 

Total cabin heat exchanger latent 
heat load 

Total cabin heat exchanger heat load 
Cabin air mass X specific heat flow 
rate 

Cabin air volumetric flow rate through 
the heat exchanger 

Cabin air volumetric flow rate through 
the heat exchanger bypass 
Calculated overall heat transfer 
coefficient for the cabin heat exchanger 
Number of times calculations went 
through the convergence loop. If 
value is 35, calculations, have not 
converged 


ARS water coolant loop inlet temperature 
ARS water coolant loop outlet temperature 


ARS water coolant loop inlet temperature 
ARS water coolant loop outlet temper- 
ature 


AES water coolant loop inlet temperature 
AES water coolant loop outlet temperature 
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TABLE 4.2 (Continued) 


AVIONICS BAYS: 

Program 

Symbol 

Units 

Description 

T H 2 0-IN 

° F 

ARS water coolant loop inlet temperature 

T CP-OUT 

° F 

ARS water coolant loop temperature 
exiting the coldplate network 

T H^O-OUT 

° F 

ARS water coolant loop outlet temper- 
ature 

T ABAY 

° F 

Avionics bay dry bulb air temperature 

T AIR-IN 

°F 

Avionics bay air temperature entering 
the heat exchanger 

T AIR-OUT 

°F 

Avionics bay air temperature exiting 
the heat exchanger 

WCp AIR 

BTU/HR-°F 

Avionics bay air mass X specific heat 
flow rate through the heat exchanger 

Q, ABHX 

btu/hr 

Total avionics bay heat load transferred 
through the heat exchanger to the ARS 
water coolant loop 

CABIN WINDOWS: 

T H 2 0-IN 

°F 

ARS water coolant loop inlet temperature 

T H 2 0-0UT 

°F 

ARS water coolant loop outlet temperature 

PAYLOAD HEAT EXCHANGER: 


T F21-IN 

°F 

ATCS Freon coolant loop inlet temperature 

T F21-OUT 

°F 

ATCS Freon coolant loop outlet tempera- 
ture 

WCp. F21 

btu/hr-° f 

ATCS Freon coolant mass X specific 
heat flow rate through the heat exchanger 

T PLD-IN 

F 

Payload coolant temperature entering 
the heat exchanger 

T PLD-OUT 

°F 

Payload coolant temperature exiting the 
heat exchanger 
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TABLE 4.2 (Continued) 


F21 COOLANT LOOP PUMP: 


Program 

Symbol 

Units 

T F21-IN 

°F 

T F21-0UT 

°F 

WC p F21 

btu/hr-° f 

W F21-ACT 

lbs/hr 

FUEL CELL HEAT 

EXCHANGER: 

T F21-IN 
T F21-0UT 
WCp F21 

°F 

°F 

btu/hr-°f 

T FCL-IN 

°F 

T FCL-OUT 

°F 

WCp FCL 

btu/hr-°f 

HYDRAULICS HEAT 

EXCHANGER: 

T F21-IN 
T F21-0UT 
WCp F21 

° F 
°F 

BTU/HR-°F 

T HYD-IN 

°F 

T HYD-OUT 

°F 


Description 

ATCS Freon coolant loop inlet temper- 
ature 

ATCS Freon coolant loop outlet temper- 
ature 

ATCS Freon coolant mass X specific 
heat flow rate through the pump 
Actual ATCS Freon coolant loop flow 
rate; not used for system thermodynamic 
balance 


ATCS Freon coolant inlet temperature 
ATCS Freon coolant outlet temperature 
ATCS Freon coolant mass X specific 
heat flow rate through the heat 
exchanger 

Fuel cell, coolant temperature entering 
the heat exchanger 

Fuel cell coolant temperature exiting 
the heat exchanger 

Total fuel cell coolant mass X specific 
heat flow rate through the heat exchanger 


ATCS Freon coolant inlet temperature 
ATCS Freon coolant outlet temperature 
ATCS Freon coolant maxx X specific 
heat flow rate through the heat exchanger 
Hydraulics fluid temperature entering 
the heat exchanger 

Hydraulics fluid temperature exiting 
the heat exchanger 
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TABLE 4.2 ( Continued ) 


F21 COOLANT LOOP ENVIRONMENT LOAD: 


Program 

Symbol Units 


ATCS Freon coolant inlet temperature 
ATCS Freon coolant outlet temperature 
ATCS Freon coolant mass X specific 
heat flow rate through the heat node 


T F21-IN 
T F21-0UT 
WCp F21 


F 

°F 

btu/hr-°f 
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APPENDIX I 


) 



1 of 26 


1,1 INTERNAL PROGRAM DATA 

The calculation procedures derived for the ARS/ATCS performance 
routine require the utilization of data tables that provide the 
following information: 

A. Water vapor properties: 

P H 2 0 = f (t h 2 o) 

T H 2 0 = f(P H 2 o) 

B. Freon 21 properties: 

H F21 = f(T F21) 

F21 = f (T F21) 

T F21 = f (H F2l) 

C. Radiator performance map: 

Tout = f(T in), for various flow rates 

D. Sensible/latent split of metabolic heat in the orbiter cabin: 

A MET - Sensible = f (T CABIN) 

To minimize the data storage requirement and the overall run time 
required per case, generalized, empirical equations were written 
for the above data. These equations took the form of: 

Y = b() + bq + b 2 x^ + b n x n 

These derivations were accomplished with the aid of the N^ h 
ORDER REGRESSION ANALYSIS ROUTINE , program number 1063 A/ST3, 
supplied by Wang Laboratories, Inc. The following pages provide 
the user with example curves of these empirical equations. 
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1.2 


CALCULATION PROCEDURES 


A . SUBLIMATOR 


Calc. 

Step 

1 EFF = 1 - l/EXP (UA-SUBLM/W H 2 O) 

2 Tin « 32 + Q, TOT/(EFF)(W H 2 0 

3 Tout = tin - Q tot/w h 2 o 


B. GSE HEAT EXCHANGER 


Calc. 

Step 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 . 

17 

18 
20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 


Q UP STRM = Q H 2 0 LOOP + Q PLDHX - Q 0 2 HTR 

Tqut = t gse 

ASSUME PUMP INLET T - 75° F 

CALL SUBR 0103 (CAL. -F21 AT PUMP INLET) 

W F21 = (V F21P) (P -F21) 

H-F21 = Q UP STRM/W F21 
CALL SUBR 0101 (CAL H-F21 FOR Tqut) 

H-F21 AT PUMP INLET = H-F21 @ T QUT H F21 
CALL SUBR 0102 (CAL T-F21 AT PUMP INLET) 

CALL SUBR 0103 (CALC-F21 AT PUMP INLET) 

W F21i = W F21 
W F21 = (V F21P) (P-F21) 

IFf .5(10" 2 ) - (ABS (W F21-W F21i)/WF2l)j 6, 14, l4 
H-F21 = Q TOT/W F21 
CALL SUBR 0101 (CAL H-F21 FOR Tqut) 

H-F21 AT GSEHX INLET = H-F21 @ Tqut + ■£ H-F21 
CALL SUBR 0102 (CAL T-F21 AT GSEHX INLET) 

CALL SUBR 0104 (CAL T F21-0UT FROM GSEHX) 

IF (T GSE - T F21-0UT) 21,30,30 
Tout = t F 21 - 0 UT 

H-F21 = Q UP STRM/W F21 
CALL SUBR 0101 (CAL H-F21 FOR Tout) 

H-F21 AT PUMP INLET = H-F21 @ T oUT + ^ H-F21 
CALL SUBR 0102 (CAL T-F21 AT PUMP INIET) 

CALL SUBR 0103 (CAL? -F21 AT PUMP INLET) 

W F21 1 = (V F21P) ( -F21) 

IF[.5(10" 2 ) - (ABS(WF21 - W21 1 )/W2l)l6,29,29 
T GSE = Tqut 
^ H - F21 = Q, TOT/W F21 
CALL SUBR 0101 (CAL H-F21 FOR T GSE) 

H-F21 AT GSEHX INLET = H-F21 @ T GSE + 4 H-F21 
CALL SUBR 0102 (CAL T-F21 AT GSEHX INLET) 

T F21-0UT = T GSE 

WCp F21 = Q TOT/(T F21-IN - T F21-0UT) 

T GSE -OUT = T GSEHX + Q TOT/W Cp GSE 



( Co nt inued) 


GSE Heat Exchanger 
SUBR 0101 


Calc. 

1 H-F21 = + .144837452282(10“6)T-F2l3 

- . 108670483009 (lO*"3)T..F21 2 
+ .234888555105 T-F21 

2 RETURN 
SUBR 0102 


T-F21 = +.945369306348(lO-5)H«F2l3 

- .94490322457( 10-2 ) h . F21 2 
+ 4.44339335775 H-F21 

- 41.207334603 

RETURN 


SUBR 0103 

1 

2 

3 

4 

5 

6 
7 


I F J? WCp gse / wc p m)-ij k.s.k 
= T gsehx + q tot / ua 

c 1 - ? T0 LU/y Cp F21 - VWCp GSE) 


RADIATOR 


1 

2 

3 

4 
s 
6 

7 

8 
9 


Q UP STRM = 

Tout = t rad 


Q H2O loop + q pldhx 

- Q 0 2 HTR 


rtooujvui ruMP INLET T = 75°F 

^ « - »») 

A H-F21 = Q UP STRM/W F21 

CALL SUBR 0101 (CAL H-F21 FOR T^rirn'i 

H-F21 AT PUMP INLET = S B * 01 

CALL SUBE 0102 (CAL T-F21 AT ^ 
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1.2 (Continued) 


C. Radiator (cont'd.) 


Calc. 

Step 

10 CALL SUBR 0103 (CAL? -F21 AT PUMP INLET) 

11 W F21j_ = W F21 

12 W F21 = (V F21P) (P-F21) 

13 IF £".5(10-2) _ (ABS(W F21-W F21-0/W F2l)J 6,l4,l4 

14 A H - F21 = Q, TOT/W F21 

15 CALL SUBR 0101 (CAL H-F21 FOR T 0ut ) 

1 6 H-F21 AT RAD INLET = H-F21 @ T QUT +A H-F21 

17 CALL SUBR 0102 (CALL T-F21 AT RAD INLET) 

18 wcp F2i = q tot/ (Tin-Tout) 

19 CALL SUBR 0104 (CAL T F21-0UT FROM RADIATOR) 

20 IF (T RAD - T F21-0UT ) 21,30,30 

21 T 0UT = T F21-0UT 

22 A H-F21 - Q UP STRM/W' F21 

23 CALL SUBR 0101 (CAL H-F21 FOR T 0 ut) 

24 H-F21 AT PUMP INLET = H-F21 @ TOUT + A H-F21 

25 CALL SUBR 0102 (CAL T-F21 AT PUMP INLET) 

2 6 CALL SUBR 0103 (CALP-F21 AT PUMP INLET) 

27 W F2ll = (V F21P)(P -F21) 

28 IF £.5(10-2) - (ABS (W F21-W F21 X )/W F2l][1 6,29,29 

29 T RAD = T out 

30 A H-F21 = Q, TOT/W F21 

31 CALL SUBR 0101 (CAL H-F21 FOR T RAD) 

32 H-F21 AT RAD INLET = H-F21^ T RAD + 4 H-F21 

33 CALL SUBR 0102 (CAL T-F21 AT RAD INLET) 

34 IF £5(10-2) _ aBS(T F21-IN-Tin)J 35,37,37 

35 Tin = T F21-IN 

36 GO TO 19 

37 WCp F21 = Q T0T/(T F21-IN-T RAD) 

38 T F21-0UT = T RAD 


SUBR 0101 

1 H-F21 = +. 144837452282 (10- 6 )T-F2l3 

+ .108670483009(10“^ )T-F21 2 
+ .234888555105 T-F21 
+ 9.4564170923 


2 


RETURN 
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1.2 (Continued) 


C. Radiator (Cont'd.) 


Calc . 

Step 

SUBR 0102 


1 T-F21 = + .945369306348(10-5)H-F2l3 

- .94490322457(10- 2 )H-F21 2 
+ 4.44339335775 H-F21 

- 41.207334603 


2 RETURN 


SUBR 0103 

1 P -F21 = - . 211247089686 ( 10-6 ) T -F21-3 

+ . 3227797214027 (10"4 )T-F21 2 

- .84i84i4 92861 (io- 1 )t-F21 
+ 91.4866666688 

2 RETURN 


SUBR 0104 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 


CALL SUBR 0107 (CAL Tqut FOR & = 2200) 
CALL SUBR 0107 (CAL Tqut FOR u> = 2400 ) 
CALL SUBR 0107 (CAL T 0 UT FORuJ = 2600 ) 
CALL SUBR 0107 (CAL Tqjjt FORil* = 2800 ) 
CALL SUBR 0107 (CAL T 0UT FDRi^ = 3000) 
CALL SUBR 0107 (CAL T 0 UT FORw » 3200) 
CALL SUBR 0107 (CAL T 0 UT FOR = 3400) 
CALL SUBR 0107 (CAL T QUT FORoJ = 3600) 
CALL SUBR 0107 (CAL Tqut FORoj « 38OO) 

IF (W F21 - 3000) 11,25,25 
IF (W F21 - 2200) 12,12,14 
T nuT FORuj = T nTFp FOR 2200 
GO TO 45 

STEPS = INT H(W F21 - 2000)/200j 
m = f W F21 - ( iP STEPS ) ( 200 ) +2200 ) "1 / 200 

= 2200 + (200 ) (Esteps) 

T X = t 0UT foro^ 

\X> 1 _ =u; i + 200 _ 

^2 = IpUT FORi^t 
lO 1 + 200 

t 3 = lour for^i 

U>± = ti^i + 200 
T4 = Tqut FORct-’j 
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1.2 (Continued) 


C. Radiator (Cont’d.) 

Calc. 

Step 


24 GO TO 38 

25 IF (3800 - W F21) 26,26,28 

26 T out FOR = t out for 3800 

27 GO TO 45 

28 UJ STEPS = INT £(3800 - W F2l)/200j 

29 m =f3800 - (200) (u> STEPS) ~ W F2lJ /200 

30 U -l = 38OO - (200) (i^ STEPS) 

31 T]_ = Tour for 

32 vU x = - 200. 

33 T 2 = Tqut FOROJ-l 

34 L u 1 = - 200 

35 T 3 = t OUT for 1 

36 a* 1 = ifi- L - 200„ 

37 T4 = T out FOR^'i 

38 dI 3 = T4 - t 3 

39 Dig = T 3 “ t 2 

40 D 1 ! = T2 - T1 

41 = D X 3 - Dig 

42 D^j_ - 1^2 “ D 1 ! 

43 ' d3 x = d 2 2 - D 2 ! 

44 Tout = + (m^D 1 !) + (m)(m-l)(D 2 i)/2 + (m) (m-l) (m-2 ) (d 3 x )/6 

45 if (Tqut - T had) 46,46,47 

46 Tqut ~ t rad 

47 RETURN 


SUBR 0107 

1 Tout - c i t in^ + C2 Tju 2 + c 3 + C4 

2 RETURN 



1 

2 

3 

4 

5 


A H - F21 = Q O 2 HTR/W F21 

CALL SUBR 0101 (CAL H-F21 AT T F21-IN) 

H-F21AT HTR OUTLET = H-F21 T F21-IN - 4 H - F21 
CALL SUBR 0102 (CALL T-F21 AT HTR OUTLET) 

WCp F21 = Q 02HTR/(T F21-IN - T F21-0UT) 
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1.2 (Continued) 


D. (Cont'd.) 
SUBR 0101 


1 H - F21 = + .144837452282(10“ 6 )T-F2l3 

+ . 108670483009 ( 10-3 )T-F21 2 
+ .234888555105 T-F21 
+ 9.4564170923 

2 RETURN 


SUBR 0102 

1 T - F21 = + .945369306348(10-5) H-F21 3 

- . 94490322347 ( 10" 2 ) H~F21 ? 
+ 4.44339335775 H-F21 

- 41.207334603 

2 RETURN 


E. F2l/Hp0 INTERCHANGER 

Radiator or GSE Heat Exchanger Heat Sink 


Calc. 

Step 


1 A H - F21 = Q H 2 0 LOOP/W F21 

2 CALL SUBR 0101 (CAL H-F21 AT T F21-IN) 

3 H-F21 AT INTHX OUTLET = H-F21 @ T F21-IN +£ H 

4 CALL SUBR 0102 (CAL T-F21 AT INTHX OUTLET) 

5 WCp F21 = Q H 2 0 lOOP/ (T F21-0UT-T F21-IN) 

6 IF (WCp F 2 l/w H 2 0 - 1 ) 9 , 7,9 

7 T HpO-OUT = T F21-IN + Q H 2 0 LOOP/UA-INTHX 

8 GO TO 12 

9 Cl = Q H 2 0 LOOP (l/w H 2 0 - 1/wCp F 21 ) 

10 C 2 = 1 - EXP C(UA INTHX) (l/W H 2 0 - 1/WC P F2lf 

11 T H 2 0-0UT = C 2 T F21-IN - C x )/C 2 

12 T H 2 0-IN = T H 2 0-0UT + Q, H 2 0 IOOP/W H 2 0 


SUBR 0101 

1 H-F21 = + . 144837452282 ( 10 ) T-F2l3 

+ .108670483 009 (10 "3 )T-F21 2 
+ .234888555105 T-F21 
+ 9.4564170923 


- F21 


2 


RETURN 
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1.2 (Continued) 


E. (Continued) 

Calc. 

Step. 

SUBR 0102 

1 T-F21 = .945369306348(lO“5) H-F2l3 

- .94490322457(10-2) H-F2I 2 

+ 4.44339335775 H-F21 

- 41.207334603 

2 RETURN 


F. POTABLE H 2 O CHILLER 

1 IF (W H 2 0/W CHILL - 1) 4,2,4 

2 T POT-OUT = T HgO-IN + Q CHILL/UA CHILL 

3 GO TO 7 

4 Cj_ = Q CHILL (1/W CHILL - l/W HgO) 

5 C 2 = 1 - EXP (UA CHILL) (l/W CHILL - l/W H 2 0) 

6 T POT-OUT = C 2 T H 2 0-IN - Cj /C 2 

7 T H20-0UT = T H 2 0-IN + Q, CHILL/W H 2 0 

8 T POT-IN = T POT-OUT + Q CHILL/W CHILL 


G. ARS CABIN GAS LOOP 

1 LOOP CNTR = 0 

2 T CAB = T CABi 

3 Q MET-S « Q MET-Si 

4 Q MET-L = Q MET- Li 

5 Q HX INLET = Q ELEC + Q FAN + (35) (W C0 2 ) 

6 Q TOT-S = Q MET-S + Q CAB-S + Q, HX INLET 

7 Q TOT-L = Q MET-L + Q CAB-L + (17.5)(W C0 2 ) 

8 H 2 0 COND = Q, OX)T-L/106S 

9 CALL SUBR 0101 (CAL WCp FAN FOR T CAB) 

10 ' WCp HX = WCp FAN 

11 T HX-IN = T CAB + Q HX INLET/WCp FAN 

12 T HX-OUT = T HX-IN - Q TOT-S/WCp HX 

13 IF C(THX-OUT - 2) - T H 2 0 -INj 14,22,22 

.14 t HX-OUT - T HX-OUT + 1 

15 T HX-IN = T HX-OUT + Q TOT-S/WCp HX 

16 T CAB = T HX-IN + Q HX INLET/WCp FAN 

17 CALL SUBR 0101 (CAL WCp FAN FOR T CAB) 

18 CALL SUBR 0102 (CAL Q MET-S, Q MET-L, Q TOT-S AND Q TOT-L FOR 

T CAB) 
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G. ARS Cabin Gas Loop (Continued) 


Calc. 

Step 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 


T HX-IN = T CAB + Q HX INLET/WCp FAN 
T HX-OUT = T HX-IN - Q, TOT-S/WCp HX 
IF L(T HX-OUT - 2) - T H 2 0~INJ 14,22,22 
CALL SUBR 0103 (CAL CABIN T DEWPT) 

T COND = T DEWPT - 1 
Q TOT = Q TOT-S + Q TOT-L 
T H 2 0-0UT = T H 2 0-IN + Q TOT/w H 2 0 
IF (T HX-IN - T H 2 0-0UT) 14,14,27 
Q WET = W H20 (T COND - T HgO-IN) 

IF (Q TOT - Q WET) 29,29,34 
UA-DRY = 0 


T COND = T H20-0UT 
T OUT-DRY = T HX-IN 
Q WET = Q TOT 
GO TO 39 

Q DRY = Q TOT - Q WET 
T OUT-DRY = T HX-IN - Q, DRY/WCp HX 
IF (T COND - T OUT-DRY) 37,61,61 

A TLM-DRY = (THX-IN - TH20-0UT - T OUT-DRY + T COND) 

UA-DRY = Q DRY/ ' T ®0-OUt)/ U'OUT-DRY - T COND^ 

A TLM-WET = (T OUT-DRY - T COMP - T HX-OOT + T HPO .TT^ 

IIA InC(T OUT-DRY - T COTD)/Tf HX-OUT - T H 2 0-In)'1 

UA-WET = Q WET/ TLM-WET * ^ 

UA REQ’D = UA-DRY + UA-WET 
A UA = UA REQ'D - UA CABHX 
TOL UA - (TOL UA) (UA CABHX) 

IF TOL UA - ABS (4 UA) 45,76,76 
IF (A UA) 46,61,61 

IF (T HX-OUT - 2) - T H 2 o-IN 76 , 76,47 
T HX-OUT = T H 2 0-IN + {T HX-OUT - T HpQ-IN) (UA REQ'n) 

Tr „ , UA CABHX 

WC P HX = Q TOT-S/ (T HX-IN - T HX-OUT) 

IF (T CABi - T CAB) 50,54,54 
WCp HX = WCp FAN 
T CAB = T CAB - 0.1 

CALL SUBR 0101 (CAL WCp FAN FOR T CAB) 

T A CAB) UBR 0102 ^ CAL Q MET-S > Q MET-L, Q TOT-S AND Q TOT-L FOR 

T HX-IN = T CAB + Q HX INLET/wCp FAN 
T HX-OUT = T HX-IN - Q, TOT-S/WCp HX 
IFL(T HX-OUT 6 2) - T H 2 0-INj 57,74,74 

T f IHMT/WCl> FAB) - (T ^ 0 - IH + 2) + T CM 

T HX-IN = T HX-OUT + Q TOT-S/WCp HX 
GO TO 74 r 

IF (WCp HX - WCp FAN) 62,68,68 

WCp HX = Q TOT-S/ CT HX-IN - T HX-OUT - 0.2 1 

IF (WCp HX - WCp FAN) 65,64,64 

WCp HX = WCp FAN 

T HX-IN = T CAB + Q, HX INLET/WCp FAN 
T HX-OUT = T HX-IN - Q TOT-S/WCp HX 



ARS Cabin Gas Loop (Continued) 


Calc. 

Step 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 


GO TO 74 

T CAB = T CAB + 1 


CALL STJBR 0101 (CAL WCp FAN FOR T CAB) 

CALL SUBR 0102 (CAL Q MET-S, Q, MET-L, Q TOT-S AND Q, TOT-L FOR 
T CAB) 


WCp HX = WCp FAN 

T HX-IN = T CAB - Q HX INLET/WCp FAN 
T HX-OUT = T HX-IN - Q TOT-S WCp HX 
LOOP CNTR = LOOP CNTR + 1 
IF (LOOP CNTR - 35) 22,76,76 
CALL SUBR 0103 (CAL CABIN T DEWPT) 

Q L10H-S = (35) (W COp) 

Q L10H-L = (17.5) (W C0 2 ) 
ppCOp = (T CAB + 459 . 6 ) (W COp) 
(56.1) (V L10H) 

V HX = C(WCp HX) (V FAN) J/WCp FAN 

V BYPASS = V FAN - V HX 


SUBR 0101 

1 WCp FAN = 1.0711842838 (V FAN) 

2 WCp FAN p = WCp FAN 

3 WCp FAN = (572.65511811) (V FAN) 

C(Q ELEC/WCp FANl) + T CAB + 459 . 6 J 

4 IF C.5(10" 2 ) - (ABS(WC P FAN - WCp FANi)/wCp FAN)J 2,5,5 

5 WCp HX = WCp FAN 

6 RETURN 


SUBR 0102 

1 Q, TOT-S = Q TOT-S - Q MET-S 

2 Q TOT-L = Q TOT-L - Q MET-L 

3 IF (94 - T CAB) 4,4,7 

4 Q MET-S =0 

5 Q. MET-L = Q MET -Si + Q MET-Li 

.6 GO TO 11 

7 CALL SUBR 0104 (CAL Qg FOR T CAB^ ) 

8 CALL SUBR 0104 (CAL Qs FOR T CAB) 

9 Q MET-S = [Q, MET-Si 1 - (Qa ± - QgVog.l 

10 Q MET-L = Q MET-Si + Q MET-Li - Q MET-S 

11 Q TOT-S = Q TOT-S + Q MET-S 

12 Q. TOT-L = Q TOT-L + Q MET-L 

13 HpO COND = Q T0T-L/1065 

14 RETURN 
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G. ARS Cabin Gas Loop (Continued) 

Calc. 

Step 

SUBR 0104 


1 Qga -.496454953521(10-3) T CAB 4 

+.153423619595 T cab3 
-17.8569340742 T CAB 2 
+917.60727343 T CAB 
-1714.111824 

2 RETURN - 


SUBR 0103 


1 COUNTER = 0 

2 CALL SUBR 0105 (CAL P H 2 0 FOR T HX-OUT) 

3 H^O OUT = (P H 2 O-OUT) (V FAN) ( 60 ) (WCp HX) 

(.595) (T HX-OUT + 459.6) (WC P FAN) 

4 TOT ^0 = H 2 0 OUT + HpO COND 

5 T H20 = T HX-OUT 

6 P HgO = (T H 2 0 + 45^6) (. 595 ) (TOT H 2 0)(WCp FAN) 

I^FAN) (60)" (WC p HX) 

7 CALL SUBR 0106 (CAL T H 2 0 FOR P H 2 o) 

8 COUNTER « COUNTER +1 

9 I (COUNTER - 3) 6,10,10 

10 T DEWPT = T H 2 0 

11 RETURN 


SUBR 0105 

1 P H 2 0 = -.137 98243 8332 ( 10 -11 ) T H205 

+. 727253519326 (10” 8 ) T H 2 0 4 

-.42156805717(10**°) T h 2 o3 
+.640627941428(10-4) t h 2 o 2 

-.20762402311(10-3) T h 2 0 

+.359979371788(10-1) 

2 RETURN 


SUBR 0106 

1 1^0 = +3563.65514163 P H 2 o5 

-6508.86440198 P H 2 0 4 
+4849.14318832 p H203 
-1943.30027988 p h 2 o 2 
+511.12859363 p H 2 0 
-.855385312 


2 


RETURN 
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H. H2O COOLANT LOOP PUMP, IMU COLDPLATES, COLDWALL, OR CABIN WINDOWS 


Ca 1c . 

Step 

1 T H 2 ° " 0UT ~ T H 2 0 - IN + Q/ w h 2 ° 


I. AVIONICS BAYS - TYPICAL FOR ONE BAY 


Ca lc. 

Step 

1 W H 2 0 = W H 2 0/3 

2 T CP-OUT = T H 2 0-IN + Q CP/W H 2 0 

3 Q ABHX = Q AB + Q ABFAN 

4 WCp AIR = (^72.6^Il8ll)(V ABFAN) 

C(Q ABHX/w H 2 0) + T Q-OUT + 459. "6 '3 

5 CALL SUBR OIOl (CAL T AIR 0UT ) 

6 WCp AIR* = WCp AIR 

7 WCp AIR = (372.6^11B11.)(V ABFAN) 

IT(Q Ab/WCp AIR') + t air_OUT + U 59.6JJ 

8 IF .5(10" 1 2 3 4 5 6 7 8 ) - f ABS(WCp AIR - WCp AIR r )/wCp AIR) 5, 9, 9 

9 CALL SUBR 0101 (CAL T AIR 0UT ) 

10 T ABAY = T air _out + Q Ab/WCp AIR 

11 T AIR- IN = T AIR-OUT t Q ABHX/wCp AIR 

12 T H2O-OUT = T CP-OUT + Q ABHX/W H 2 0 

SUBR 0101 

1 IF (W HpO/WCp AIR-1) 4, 2, 4 

2 T AIR- OUT = T CP- OUT + Q ABHX/UA ABHX 

3 GO TO 7 

4 Cl = Q ABHX (l/wCp AIR - l/w'HgO) 

5 C 2 * 1 - EXP (UA ABHX) (l/wCp AIR - l/W H 2 0) 

6 T AIR-OUT = C C 2 T CP-OUT - Cj /C 2 

7 RETURN 

J. F2l/H 2 0 INTERCHANGER ; 

SUBLIMATOR HEAT SINK 

Calc. 

Step 


1 ASSUME PUMP INLET T = 100°F 

2 CALL SUBR 0103 (CAL<? -F21 AT PUMP INLET) 

3 W F21 = (V F21P) (P-F21) 

4 T F21-0UT = T HoO-IN +5 

5 CALL SUBR 0101 (CAL H-F21 AT T F21-0UT) 

6 A H-F21 = Q F21 LOOP/W F21 

7 H-F21 AT INTHX INLET = H-F21 T F21-0UT + A H-F21 

8 CALL SUBR 0102 (CAL T-F21 AT INTHX INLET) 



i 
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J. F2l/Hp0 Inter changer (Cont'd.) 

Ca 1c . 

Step 


9 W Cp F21 = Q F21 LOOP/T F21-IN-T F21-0UT 

10 CALL SUBR 0104 (CAL T F21-0UT) 

11 CALL SUBR 0101 (CAL H-F21 AT T F21-0UT) 

12 H-F21 = Q PLDHX/W F21 

13 H-F21 AT PUMP INLET = H-F21 @ T F21-0UT H-F21 

14 CALL SUBR 0102 (CAL T-F21 AT PUMP INLET) 

15 CALL SUBR 0103 (CAL -F21 AT PUMP INLET) 

1 6 W F21* ® W F21 

IT W F21 = (V F21P) ( -F2l) 

18 IF C-5(10“2)_(ABS(W F21-W F21* )/w F2lQ 19 , 25 25 

19 CALL SUBR 0101 (CAL H-F21 AT T F21-0UT) * 

20 H-F21 = Q F21 LOOP/w F21 

21 H-F21 AT INTHX INLET = H-F21 @ T F21-0UT 

+A H-F21 

22 CALL SUBR 0102 (CAL T-F21 AT INTHX INLET) 

23 WCp F21 = Q F21 LOOP/T F21-IN-T F21-0UT 

24 GO TO 10 

25 CALL SUBR 0104 (CAL T F21-0UT) 

26 CALL SUBR 0101 (CAL H-F21 AT T F21-0UT) 

27 A H-F21 = Q F21 LOOp/w F21 

28 H-F21 AT INTHX INLET = H-F21 AT T F21-0UT + AH-F21 

29 CALL SUBR 0102 (CAL T-F21 AT INTHX INLET) 

30 WCp F21 = Q F21 LOOP/T F21-IN-T F21-0UT 

31 T H 2 O-0UT = T H 2 0-IN + Q F21 LOOP/w H 2 0 

SUBR 0101 

1 H-F21 = + .14483T452282(10- 6 )T-F2l3 

+ .1086to483009(10' 3 )T-F212 
+ .234888555105 T-F21 
+ 9.4564170923 

2 RETURN 
SUBR 0102 

1 T-F21 = + .945369306348(10-5 )H-F2l3 

- . 94490322457(10-2 )H-F21^ 

+ 4.44339335775 H-F21 

- 41.207334603 

2 RETURN . 

SUBR 0103 

1 -F21 = - .211247089686(10-6)T-F2l3 

+ . .3277972l4027( 10"^)T-F21 2 

- .84l84l49286l(lO-l)T-F21 
+ 91.4866666688 


2 


RETURN 
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J« F2l/HpQ Inter changer (Cont’d.) 

SUBR 0104 

1 IF (W HpO/wCp F21-1) 4, 2, 4 

2 T F21-0UT = T H 2 0-IN + Q F21 LOOP/UA INTHX 

. 3 GO TO 7 

4 Ci = Q F21 LOOP (l/wCp F21-1/W H 2 0) 

5 C 2 - 1-EXPC(UA INTHX) (l/wCp F21-1/W H 2 0)J 

6 T F21-0UT = JTC 2 T H 2 0-IN-C]3 /C 2 

T RETURN 

K. PAYLOAD HEAT EXCHANGER 

Calc . 

Step 

1 CALL SUBR 0101 (CAL H-F21 AT T.F21-IN) 

2 ^ H-F21 = Q PLDHX/W F21 

3 H-F21 AT PLDHX OUTLET = H-F21 @ T F21-IN +4H-F21 

4 CALL SUBR 0102 (CAL T-F21 AT PLDHX OUTLET) 

5 WCp F21 = Q PLDHX/ (T F21-0UT-T F21-IN) 

6 IF (WCp F2l/wCp PLD-l) 9,7,9 

7 T PLD-OUT = T F21-IN + Q PLDHX/UA PLDHX 

8 GO TO 12 

9 Ci = Q PLDHX (l/wCp PLD - l/WGp F2l) 

10 C 2 = 1-EXPC(UA PLDHX) (l/WCp PLD-l/WCp F2l)J 

11 T PLD-OUT = CC2 T F21-IW-CiJ /Co 

12 T PLD- IN = T PLD-OUT + Q PLDHX/wCp PLD 

SUBR 0101 

1 H-F21 = + . 144837452282 ( 10-6 )t-F213 

+ .108670483009(10"3)T-F21 1 2 3 4 
+ .234888555105 T-F21 
+ 9.4564170923 

2 RETURN 
SUBR 0102 

1 T-F21 = + .945369306348(10-3)H-F2l3 

- . 94490322457 ( 10' 2 )H-F21 2 

+ 4.44339335775 H-F21- 

- 41.207334603 

2 RETURN 

L. F21 COOLANT LOOP PUMP 

Calc. 

Step 

1 CALL SUBR 0101 (CAL H-F21 AT T F21-IN) 

2 AH-F21 *= Q F21 PUMP/w F21 

3 H-F21 AT PUMP OUTLET = H-F21 @ T F21-IN + 4H-F21 

4 CALL SUBR 0102 (CAL T-F21 AT PUMP OUTLET.) 



F21 Coolant Loop Pump (Cont'd.) 


5 WCp F21 = Q F21 PUMP/ (T F21-0UT-T F21-IN) 

6 GALL SUBR 0103 (CAL^ -F21 AT PUMP INLET) 

7 W F21-ACT = (V F21P)((> -F2l) 

SUER 0101 

1 H-F21 = + . 144837452282 ( 10" 6 )T-F2l3 

+ . 108670483009( 10" 3 )T-F21 2 
+ .23488555105 T-F21 
+ 9.4564170923 

2 RETURN 
SUER 0102 

1 T-F21 = + .945369306348(lO“5)H-F2l3 

- . 94490322 457( 10-2 )h-F21 2 
+ 4.44339335775 H-F21 

- 41.207334603 

2 RETURN 
SUBR 0103 

1 P -F21 = - .211247089686(10-6) t _ F2 i3 

+ • 3277972 l4027( 10-^)T-F21 2 

- .84l84l49286l(iO“ 1 11 )T-F2l 
+ .91.4866666688 

2 RETURN 

FUEL CELL HEAT EXCHANGER 


Calc . 

Step 

1 IF (# FCELL-1) 2,2,4 

2 UA FCLHX = ( 2/3 ) ( UA FCLHX) 

3 W F21 = (2/3)(W F21) 

4 ¥Cp FCL = (# FCELL)(WCp FCL) 

5 CALL SUBR 0101 (CAL H-F21 AT T F21-IN) 

6 A H-F21 = Q FCELL/W F21 

7 H-F21 AT FCIHX OUTLET = H-F21 @ T F21-IN +4 H-F21 

8 CALL SUBR 0102 (CAL T-F21 AT FCLHX OUTLET) 

9 WCp F21 = Q FCELL/(T F21-0UT-T F21-IN) 

10 IF (WCp F2l/wCp FCL-l) 13,11,13 

11 T FCL- OUT = T F21-IN + Q FCELL/UA FCLHX 

12 GO TO 16 

13 Op = Q FCELL (l/WCp FCL - l/wCp F2l) 

14 C 2 = 1-EXP [*(UA FCLHX) (l/wcp FCL-l/wCp F2l)J 

15 T FCL- OUT = rc 2 T F21-IN-Cp j/c 2 

16 T FCL- IN = T FCL- OUT + Q FCELL/wCp FCL 

SUBR 0101 


1 H-F21 = + . 144837452282 (10“^)T-F2l3 

+ . 108670483009( 10-3 )T-F21 2 
+ .234888555105 T-F21 
+ 9.4564170923 



25 


M. Fuel Cell Heat Exchanger (Cont'd. ) 

Ca lc. 

Step 


2 RETURN 

SUBR 0102 

1 T-F21 = + . 9^5369306348(10“ 5 )h-F 2 l 3 

- .94490322457(10 -2 )H-F21 2 
+ 4.44339335775 H-F21 

- 41.207334603 

2 RETURN 

N. HYDRAULICS HEAT EXCHANGER 


Calc, 

Step 

1 CALL SUBR 0101 (CAL H-F21 AT T F21-IN) 

2 4H-F21 = Q HYDHX/W F21 

3 H-F21 AT HYDHX OUTLET = H-F21 @ T F21-IN -4H-F21 

4 CALL SUBR 0102 (CAL T-F21 AT HYDHX OUTLET) 

5 WCp F21 = Q HYDHX/ (T F21-IN-T F21-0UT) 

6 IF (WCp F2l/wCp HYD-l) 9,7,9 

7 T HYD-IN = T F21-0UT-Q HYEKX/UA HYDHX 

8 GO TO 13 _ 

9 Cp = EXP/7(T F21-IN-T F21-0UT-Q HYDHX/Wp HYD)(UA HYDHX) /(Q HYEHxjT 

10 C 2 = Ci-1 

11 Cp = (Cl) (T F21-0UT) 

12 T HYD-IN = (Q HYDHX/wCp HYD-T F21-IN<-Ci)/c 2 

13 T HYD-OUT = T HYD-IN + Q HYDHX/WCp HYD 

SUBR 0101 

1 H-F21 = + . 144837452282 (10“6)T-F21 3 

+ .108670483009(10“ 3 )T-F21 2 
+ .234888555105 T-F21 
+ 9-4564170923 

2 RETURN 
SUBR 0102 

1 T-F21 = + . 945369306348(10- 5 )H-F21 

- . 94490322457 ( 10 -2 )H-F21 
+ 4.44339335775 H-F21 

- 41.207334603 

2 RETURN 

0. F21 COOLANT LOOP ENVIRONMENT LOAD 

Ca lc . 

Step 


1 


CALL SUBR 0101 (CAL H-F21 AT T F21-IN) 
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F21 Coolant Loop Environment Load (Cont'd. ) 

Ca lc. 

Step 

2 4 H-F21 = Q ENVIRN/WF21 

3 H-F21 AT OUTLET = H-F21 @ T F21-IN +A H-F21 

4 CALL SUBR 0102 (CAL T-F21 AT OUTLET) 

5 WCp F21 = Q ENVTRN/ABS (T F21-0UT-T F21-IN) 

SUER 0101 

1 H-F21 = + .1W37452282(10" 6 )T-F2l3 

+ . 108670483009 ( 10“3)t-F21 2 
+ .234888555105 T-F21 
+ 9.4564170923 

2 RETURN 
SUER 0102 

1 T-F21 = + .945369306348(lO~ 5 )H-F2l3 

- ■ 94490322457( 10~ 2 )H-F21 2 
+ 4.44339335775 H-F21 

- 41.207334603 

2 RETURN 
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